PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Hyper Education/Library Hyper Card Templates/Cisler/Home/card_5341.txt

Text File | 1987-09-30 | 9.8 KB | 504 lines

-- card: 5341 from stack: in
-- bmap block id: 4906
-- flags: 4000
-- background id: 2282
-- name: Home
----- HyperTalk script -----
on idle
  put the time into card field "Time"
  pass idle
end idle

on startup
  show card field "Copyright"
  pass startup
end startup

on closeCard
  hide card field "Copyright"
end closeCard



-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=180 top=80 right=129 bottom=235
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Rolo
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to stack "Address"
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=330 top=80 right=129 bottom=392
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: File Index
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to File Index
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=31 top=144 right=189 bottom=80
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Phone
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go to Phone
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=410 top=81 right=127 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Book Shelf
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  hide message box
  go to Book Shelf
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=416 top=140 right=187 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HyperCalc
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to HyperCalc
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=339 top=136 right=188 bottom=394
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scanned Images
----- HyperTalk script -----
on mouseUp
  hide message box
  visual effect zoom open
  go to "Slide Show"
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=109 top=140 right=187 bottom=155
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Do
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to card "First Do" of "Datebook"
end mouseUp



-- part 44 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=335 top=203 right=251 bottom=394
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Stack Ideas
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to stack "Stack Ideas"
end mouseUp




-- part 45 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=186 top=204 right=250 bottom=240
-- title width / last selected line: 0
-- icon id / first selected line: 18814 / 18814
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Card Ideas
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to stack "Card Ideas"
end mouseUp




-- part 46 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=32 top=204 right=250 bottom=81
-- title width / last selected line: 0
-- icon id / first selected line: 26884 / 26884
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Art Ideas
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to stack "Art Ideas"
end mouseUp



-- part 47 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=262 top=204 right=251 bottom=323
-- title width / last selected line: 0
-- icon id / first selected line: 27056 / 27056
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Button Ideas
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to "Button Ideas"
end mouseUp




-- part 48 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=102 top=200 right=253 bottom=160
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clip Art
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to Clip Art
end mouseUp



-- part 62 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=261 top=72 right=130 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to stack "documents"
end mouseUp




-- part 63 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=106 top=80 right=129 bottom=155
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to stack "Help"
end mouseUp




-- part 65 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=405 top=305 right=325 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Time


-- part 68 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=417 top=205 right=252 bottom=474
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to stack "Quotations"
end mouseUp



-- part 69 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=32 top=72 right=129 bottom=78
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to card "Introduction" of stack "Help"
end mouseUp



-- part 70 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=29 top=261 right=311 bottom=86
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to stack "Plots"
end mouseUp



-- part 71 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=263 top=141 right=188 bottom=318
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Months
----- HyperTalk script -----
on mouseUp
  get "Jan 1, 1987"
  convert it to seconds
  put 1 + (the seconds - it) div (60*60*24) into dayOfYear
  put 1 + (dayOfYear + 3) div 7 into whichWeek
  visual effect zoom open
  if whichWeek < 28
  then go to card 1 of DateBook
else go to card 2 of DateBook
goWeek whichWeek
end mouseUp



-- part 72 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=185 top=140 right=189 bottom=237
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Daily
----- HyperTalk script -----
on mouseUp
  get "Jan 1, 1987"
  convert it to seconds
  put 1 + (the seconds - it) div (60*60*24) into dayOfYear
  put 1 + (dayOfYear + 2) div 7 into whichWeek
  visual effect zoom open
  if whichWeek ≥ 1 and whichWeek ≤ 53 then
    go to card (whichWeek + 2) of "Datebook"
  else
    go to card 3 of "Datebook"
  end if
end mouseUp



-- part 76 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=16 top=310 right=326 bottom=207
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Copyright


-- part 77 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=106 top=259 right=299 bottom=160
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  go to card id 4138 of stack "Blank:I&R"
end mouseUp




-- part 78 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=334 top=253 right=305 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  visual effect dissolve fast
  go to card id 4175 of stack "FullText(compact)"
end mouseUp




-- part contents for background part 6
----- text -----
Home Card

-- part contents for card part 65
----- text -----
5:24 PM

-- part contents for card part 76
----- text -----
Copyright ©1987 Apple Computer, Inc.